home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / DarkForge2000 / snippets_vol3 / snip_3dlogospin.dba < prev    next >
Encoding:
Text File  |  2000-09-30  |  1.0 KB  |  71 lines
  1. `    -------------------------------------------------------------------------
  2. `    3D Logo Spinner                               DarkForge Snippet 27/9/2000
  3. `    -------------------------------------------------------------------------
  4. `    Shows how a simple bit of camera/object movement could make for a rather
  5. `    nice little intro sequence.
  6.  
  7. sync rate 0
  8. sync on
  9. hide mouse
  10.  
  11. load object "darkforge_logo.x",1
  12.  
  13. color object 1,rgb(200,150,100)
  14. color backdrop rgb(0,0,0)
  15.  
  16. x#=0
  17.  
  18. rotate object 1,270,270,0
  19. fix object pivot 1
  20.  
  21. set ambient light 60
  22. set object 1,1,0,0
  23.  
  24. #distance=150
  25.  
  26. position camera -5,23,#distance
  27.  
  28. wait 250
  29.  
  30. repeat
  31.  
  32.     dec #distance,4
  33.     position camera -5,23,#distance
  34.     sync
  35.  
  36. until #distance=<-160
  37.  
  38. repeat
  39.  
  40.     position camera -5,23,#distance
  41.  
  42.     yrotate object 1,x#
  43.     
  44.     if #distance=>-700
  45.         dec #distance,4
  46.     endif
  47.  
  48.     inc x#
  49.     
  50.     sync
  51.  
  52. until #distance=<-700
  53.  
  54. do
  55.  
  56.     yrotate object 1,x#
  57.  
  58.     if x#<=200 then inc x#
  59.  
  60.     move object 1,8
  61.  
  62.     position camera -5,23,#distance
  63.  
  64.     inc #distance,2
  65.  
  66.     sync
  67.  
  68. loop
  69.  
  70.  
  71.